home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xarc.mln < prev    next >
Text File  |  1990-06-07  |  684b  |  31 lines
  1.  
  2. ;Beginning compilation on /u/kranz/xlib/xarc.t
  3.  
  4. MAKE-XARC
  5. XARC-X
  6. XARC-X!
  7. XARC-Y
  8. XARC-Y!
  9. XARC-WIDTH
  10. XARC-WIDTH!
  11. XARC-HEIGHT
  12. XARC-HEIGHT!
  13. XARC-ANGLE1
  14. XARC-ANGLE1!
  15. XARC-ANGLE2
  16. XARC-ANGLE2!
  17. (VARIABLES
  18.   FREE (CHK-XARCP MAKE-BYTEV)
  19.   EARLY-BOUND (SET-MREF-16-U! MREF-16-U SET-MREF-16-S! MREF-16-S)
  20.   DEFINED (MAKE-XARC XARC-X XARC-X! XARC-Y XARC-Y! XARC-WIDTH XARC-WIDTH!
  21. XARC-HEIGHT XARC-HEIGHT! XARC-ANGLE1 XARC-ANGLE1! XARC-ANGLE2 XARC-ANGLE2!)
  22.   LSET ()
  23.   SET ()
  24.   ERROR ()
  25.   INTEGRATED (CONS)
  26.   LOCAL ()
  27.   UNREFERENCED (MAKE-XARC XARC-X XARC-X! XARC-Y XARC-Y! XARC-WIDTH
  28. XARC-WIDTH! XARC-HEIGHT XARC-HEIGHT! XARC-ANGLE1 XARC-ANGLE1! XARC-ANGLE2
  29. XARC-ANGLE2!))
  30. ; assembled 1500 bytes
  31.